Attribute VB_Name = "EC3_Profile"
Option Explicit
'Standard Profile
Global ProI() As Single
Global ProIPE() As Single
Global ProHEA() As Single
Global ProHEB() As Single
Global ProHEM() As Single
Public Const Pi = 3.14159265358979
Public Const E = 210000 'Unit: [N/mm^2]
Public Const G = 80769.2307692308 'Unit: [N,mm]

Public Const Gama_M0 = 1.1 'Resistance of class section 1, 2 or 3 (5.1.1 (1) - EC 3)
Public Const Gama_M1 = 1.1 'Resistance of class section 4
Public Const Gama_M2 = 1.25 'Resistance of net section at bolt holes

Public Sub AssignProI()
     ReDim ProI(20, 20)
     ProI(1, 1) = 80
     ProI(1, 2) = 8
     ProI(1, 3) = 4.2
     ProI(1, 4) = 0.39
     ProI(1, 5) = 0.59
     ProI(1, 6) = 0.23
     ProI(1, 7) = 5.9
     ProI(1, 8) = 7.57
     ProI(1, 9) = 77.8
     ProI(1, 10) = 19.5
     ProI(1, 11) = 3.2
     ProI(1, 12) = 6.29
     ProI(1, 13) = 3
     ProI(1, 14) = 0.91
     ProI(1, 15) = 11.4
     ProI(1, 16) = 0.0594
     ProI(1, 17) = 22.8
     ProI(1, 18) = 0.87
     ProI(1, 19) = 87.5
     ProI(1, 20) = 3.41
     ProI(2, 1) = 100
     ProI(2, 2) = 10
     ProI(2, 3) = 5
     ProI(2, 4) = 0.45
     ProI(2, 5) = 0.68
     ProI(2, 6) = 0.27
     ProI(2, 7) = 7.5
     ProI(2, 8) = 10.6
     ProI(2, 9) = 171
     ProI(2, 10) = 34.2
     ProI(2, 11) = 4.01
     ProI(2, 12) = 12.2
     ProI(2, 13) = 4.88
     ProI(2, 14) = 1.07
     ProI(2, 15) = 19.9
     ProI(2, 16) = 0.0834
     ProI(2, 17) = 39.8
     ProI(2, 18) = 1.6
     ProI(2, 19) = 268
     ProI(2, 20) = 4.85
     ProI(3, 1) = 120
     ProI(3, 2) = 12
     ProI(3, 3) = 5.8
     ProI(3, 4) = 0.51
     ProI(3, 5) = 0.77
     ProI(3, 6) = 0.31
     ProI(3, 7) = 9.2
     ProI(3, 8) = 14.2
     ProI(3, 9) = 328
     ProI(3, 10) = 54.7
     ProI(3, 11) = 4.81
     ProI(3, 12) = 21.5
     ProI(3, 13) = 7.41
     ProI(3, 14) = 1.23
     ProI(3, 15) = 31.8
     ProI(3, 16) = 0.111
     ProI(3, 17) = 63.6
     ProI(3, 18) = 2.71
     ProI(3, 19) = 685
     ProI(3, 20) = 6.63
     ProI(4, 1) = 140
     ProI(4, 2) = 14
     ProI(4, 3) = 6.6
     ProI(4, 4) = 0.57
     ProI(4, 5) = 0.86
     ProI(4, 6) = 0.34
     ProI(4, 7) = 10.9
     ProI(4, 8) = 18.2
     ProI(4, 9) = 573
     ProI(4, 10) = 81.9
     ProI(4, 11) = 5.61
     ProI(4, 12) = 35.2
     ProI(4, 13) = 10.7
     ProI(4, 14) = 1.4
     ProI(4, 15) = 47.7
     ProI(4, 16) = 0.143
     ProI(4, 17) = 95.4
     ProI(4, 18) = 4.32
     ProI(4, 19) = 1540
     ProI(4, 20) = 8.65
     ProI(5, 1) = 160
     ProI(5, 2) = 16
     ProI(5, 3) = 7.4
     ProI(5, 4) = 0.63
     ProI(5, 5) = 0.95
     ProI(5, 6) = 0.38
     ProI(5, 7) = 12.5
     ProI(5, 8) = 22.8
     ProI(5, 9) = 935
     ProI(5, 10) = 117
     ProI(5, 11) = 6.4
     ProI(5, 12) = 54.7
     ProI(5, 13) = 14.8
     ProI(5, 14) = 1.55
     ProI(5, 15) = 68
     ProI(5, 16) = 0.179
     ProI(5, 17) = 136
     ProI(5, 18) = 6.57
     ProI(5, 19) = 3140
     ProI(5, 20) = 10.83
     ProI(6, 1) = 180
     ProI(6, 2) = 18
     ProI(6, 3) = 8.2
     ProI(6, 4) = 0.69
     ProI(6, 5) = 1.04
     ProI(6, 6) = 0.41
     ProI(6, 7) = 14.2
     ProI(6, 8) = 27.9
     ProI(6, 9) = 1450
     ProI(6, 10) = 161
     ProI(6, 11) = 7.2
     ProI(6, 12) = 81.3
     ProI(6, 13) = 19.8
     ProI(6, 14) = 1.71
     ProI(6, 15) = 93.4
     ProI(6, 16) = 0.219
     ProI(6, 17) = 187
     ProI(6, 18) = 9.58
     ProI(6, 19) = 5920
     ProI(6, 20) = 13.35
     ProI(7, 1) = 200
     ProI(7, 2) = 20
     ProI(7, 3) = 9
     ProI(7, 4) = 0.75
     ProI(7, 5) = 1.13
     ProI(7, 6) = 0.45
     ProI(7, 7) = 15.9
     ProI(7, 8) = 33.4
     ProI(7, 9) = 2140
     ProI(7, 10) = 214
     ProI(7, 11) = 8
     ProI(7, 12) = 117
     ProI(7, 13) = 26
     ProI(7, 14) = 1.87
     ProI(7, 15) = 125
     ProI(7, 16) = 0.262
     ProI(7, 17) = 249
     ProI(7, 18) = 13.5
     ProI(7, 19) = 10500
     ProI(7, 20) = 16.03
     ProI(8, 1) = 220
     ProI(8, 2) = 22
     ProI(8, 3) = 9.8
     ProI(8, 4) = 0.81
     ProI(8, 5) = 1.22
     ProI(8, 6) = 0.49
     ProI(8, 7) = 17.6
     ProI(8, 8) = 39.5
     ProI(8, 9) = 3060
     ProI(8, 10) = 278
     ProI(8, 11) = 8.8
     ProI(8, 12) = 162
     ProI(8, 13) = 33.1
     ProI(8, 14) = 2.02
     ProI(8, 15) = 162
     ProI(8, 16) = 0.311
     ProI(8, 17) = 323
     ProI(8, 18) = 18.6
     ProI(8, 19) = 17800
     ProI(8, 20) = 19.06
     ProI(9, 1) = 240
     ProI(9, 2) = 24
     ProI(9, 3) = 10.6
     ProI(9, 4) = 0.87
     ProI(9, 5) = 1.31
     ProI(9, 6) = 0.52
     ProI(9, 7) = 19.2
     ProI(9, 8) = 46.1
     ProI(9, 9) = 4250
     ProI(9, 10) = 354
     ProI(9, 11) = 9.59
     ProI(9, 12) = 221
     ProI(9, 13) = 41.7
     ProI(9, 14) = 2.2
     ProI(9, 15) = 206
     ProI(9, 16) = 0.362
     ProI(9, 17) = 411
     ProI(9, 18) = 25
     ProI(9, 19) = 28700
     ProI(9, 20) = 22.33
     ProI(10, 1) = 260
     ProI(10, 2) = 26
     ProI(10, 3) = 11.3
     ProI(10, 4) = 0.94
     ProI(10, 5) = 1.41
     ProI(10, 6) = 0.56
     ProI(10, 7) = 20.8
     ProI(10, 8) = 53.3
     ProI(10, 9) = 5740
     ProI(10, 10) = 442
     ProI(10, 11) = 10.4
     ProI(10, 12) = 288
     ProI(10, 13) = 51
     ProI(10, 14) = 2.32
     ProI(10, 15) = 257
     ProI(10, 16) = 0.419
     ProI(10, 17) = 513
     ProI(10, 18) = 33.5
     ProI(10, 19) = 44100
     ProI(10, 20) = 26.08
     ProI(11, 1) = 280
     ProI(11, 2) = 28
     ProI(11, 3) = 11.9
     ProI(11, 4) = 1.01
     ProI(11, 5) = 1.52
     ProI(11, 6) = 0.61
     ProI(11, 7) = 22.5
     ProI(11, 8) = 61
     ProI(11, 9) = 7590
     ProI(11, 10) = 542
     ProI(11, 11) = 11.1
     ProI(11, 12) = 364
     ProI(11, 13) = 61.2
     ProI(11, 14) = 2.45
     ProI(11, 15) = 316
     ProI(11, 16) = 0.479
     ProI(11, 17) = 631
     ProI(11, 18) = 44.2
     ProI(11, 19) = 64600
     ProI(11, 20) = 30.18
     ProI(12, 1) = 300
     ProI(12, 2) = 30
     ProI(12, 3) = 12.5
     ProI(12, 4) = 1.08
     ProI(12, 5) = 1.62
     ProI(12, 6) = 0.65
     ProI(12, 7) = 24.1
     ProI(12, 8) = 69
     ProI(12, 9) = 9800
     ProI(12, 10) = 653
     ProI(12, 11) = 11.9
     ProI(12, 12) = 451
     ProI(12, 13) = 72.2
     ProI(12, 14) = 2.56
     ProI(12, 15) = 381
     ProI(12, 16) = 0.542
     ProI(12, 17) = 761
     ProI(12, 18) = 56.8
     ProI(12, 19) = 91800
     ProI(12, 20) = 34.58
     ProI(13, 1) = 320
     ProI(13, 2) = 32
     ProI(13, 3) = 13.1
     ProI(13, 4) = 1.15
     ProI(13, 5) = 1.73
     ProI(13, 6) = 0.69
     ProI(13, 7) = 25.8
     ProI(13, 8) = 77.7
     ProI(13, 9) = 12510
     ProI(13, 10) = 782
     ProI(13, 11) = 12.7
     ProI(13, 12) = 555
     ProI(13, 13) = 84.7
     ProI(13, 14) = 2.67
     ProI(13, 15) = 157
     ProI(13, 16) = 0.61
     ProI(13, 17) = 913
     ProI(13, 18) = 72.5
     ProI(13, 19) = 129000
     ProI(13, 20) = 39.29
     ProI(14, 1) = 340
     ProI(14, 2) = 34
     ProI(14, 3) = 13.7
     ProI(14, 4) = 1.22
     ProI(14, 5) = 1.83
     ProI(14, 6) = 0.73
     ProI(14, 7) = 27.4
     ProI(14, 8) = 86.7
     ProI(14, 9) = 15700
     ProI(14, 10) = 923
     ProI(14, 11) = 13.5
     ProI(14, 12) = 674
     ProI(14, 13) = 98.4
     ProI(14, 14) = 2.8
     ProI(14, 15) = 540
     ProI(14, 16) = 0.68
     ProI(14, 17) = 1078
     ProI(14, 18) = 90.4
     ProI(14, 19) = 176000
     ProI(14, 20) = 44.27
     ProI(15, 1) = 360
     ProI(15, 2) = 36
     ProI(15, 3) = 14.3
     ProI(15, 4) = 1.3
     ProI(15, 5) = 1.95
     ProI(15, 6) = 0.78
     ProI(15, 7) = 29
     ProI(15, 8) = 97
     ProI(15, 9) = 19610
     ProI(15, 10) = 1090
     ProI(15, 11) = 14.2
     ProI(15, 12) = 818
     ProI(15, 13) = 114
     ProI(15, 14) = 2.9
     ProI(15, 15) = 638
     ProI(15, 16) = 0.761
     ProI(15, 17) = 1274
     ProI(15, 18) = 115
     ProI(15, 19) = 240000
     ProI(15, 20) = 49.95
     ProI(16, 1) = 400
     ProI(16, 2) = 40
     ProI(16, 3) = 15.5
     ProI(16, 4) = 1.44
     ProI(16, 5) = 2.16
     ProI(16, 6) = 0.86
     ProI(16, 7) = 32.3
     ProI(16, 8) = 118
     ProI(16, 9) = 29210
     ProI(16, 10) = 1460
     ProI(16, 11) = 15.7
     ProI(16, 12) = 1160
     ProI(16, 13) = 149
     ProI(16, 14) = 3.13
     ProI(16, 15) = 857
     ProI(16, 16) = 0.924
     ProI(16, 17) = 1712
     ProI(16, 18) = 170
     ProI(16, 19) = 420000
     ProI(16, 20) = 55.55
     ProI(17, 1) = 450
     ProI(17, 2) = 45
     ProI(17, 3) = 17
     ProI(17, 4) = 1.62
     ProI(17, 5) = 2.43
     ProI(17, 6) = 0.97
     ProI(17, 7) = 36.3
     ProI(17, 8) = 147
     ProI(17, 9) = 45850
     ProI(17, 10) = 2040
     ProI(17, 11) = 17.7
     ProI(17, 12) = 1730
     ProI(17, 13) = 203
     ProI(17, 14) = 3.43
     ProI(17, 15) = 1200
     ProI(17, 16) = 1.15
     ProI(17, 17) = 2394
     ProI(17, 18) = 267
     ProI(17, 19) = 791000
     ProI(17, 20) = 61.69
     ProI(18, 1) = 500
     ProI(18, 2) = 50
     ProI(18, 3) = 18.5
     ProI(18, 4) = 1.8
     ProI(18, 5) = 2.7
     ProI(18, 6) = 1.08
     ProI(18, 7) = 40.4
     ProI(18, 8) = 179
     ProI(18, 9) = 68740
     ProI(18, 10) = 2750
     ProI(18, 11) = 19.6
     ProI(18, 12) = 2480
     ProI(18, 13) = 268
     ProI(18, 14) = 3.72
     ProI(18, 15) = 1620
     ProI(18, 16) = 1.41
     ProI(18, 17) = 3235
     ProI(18, 18) = 402
     ProI(18, 19) = 1400000
     ProI(18, 20) = 77.79
     ProI(19, 1) = 550
     ProI(19, 2) = 55
     ProI(19, 3) = 20
     ProI(19, 4) = 1.9
     ProI(19, 5) = 3
     ProI(19, 6) = 1.19
     ProI(19, 7) = 44.5
     ProI(19, 8) = 212
     ProI(19, 9) = 99180
     ProI(19, 10) = 3610
     ProI(19, 11) = 21.6
     ProI(19, 12) = 3490
     ProI(19, 13) = 349
     ProI(19, 14) = 4.02
     ProI(19, 15) = 2120
     ProI(19, 16) = 1.66
     ProI(19, 17) = 4229
     ProI(19, 18) = 544
     ProI(19, 19) = 2390000
     ProI(19, 20) = 95.6
     ProI(20, 1) = 600
     ProI(20, 2) = 60
     ProI(20, 3) = 21.5
     ProI(20, 4) = 2.16
     ProI(20, 5) = 3.24
     ProI(20, 6) = 1.3
     ProI(20, 7) = 48.5
     ProI(20, 8) = 254
     ProI(20, 9) = 139000
     ProI(20, 10) = 4630
     ProI(20, 11) = 23.4
     ProI(20, 12) = 4670
     ProI(20, 13) = 434
     ProI(20, 14) = 4.3
     ProI(20, 15) = 2730
     ProI(20, 16) = 1.99
     ProI(20, 17) = 5465
     ProI(20, 18) = 813
     ProI(20, 19) = 3820000
     ProI(20, 20) = 111.3
End Sub

Public Sub AssignProIPE()
     ReDim ProIPE(18, 20)
     ProIPE(1, 1) = 80
     ProIPE(1, 2) = 8
     ProIPE(1, 3) = 4.6
     ProIPE(1, 4) = 0.38
     ProIPE(1, 5) = 0.52
     ProIPE(1, 6) = 0.5
     ProIPE(1, 7) = 5.9
     ProIPE(1, 8) = 7.64
     ProIPE(1, 9) = 80.1
     ProIPE(1, 10) = 20
     ProIPE(1, 11) = 3.24
     ProIPE(1, 12) = 8.49
     ProIPE(1, 13) = 3.69
     ProIPE(1, 14) = 1.05
     ProIPE(1, 15) = 11.6
     ProIPE(1, 16) = 0.06
     ProIPE(1, 17) = 23.22
     ProIPE(1, 18) = 0.7
     ProIPE(1, 19) = 118
     ProIPE(1, 20) = 3.58
     ProIPE(2, 1) = 100
     ProIPE(2, 2) = 10
     ProIPE(2, 3) = 5.5
     ProIPE(2, 4) = 0.41
     ProIPE(2, 5) = 0.57
     ProIPE(2, 6) = 0.7
     ProIPE(2, 7) = 7.4
     ProIPE(2, 8) = 10.3
     ProIPE(2, 9) = 171
     ProIPE(2, 10) = 34.2
     ProIPE(2, 11) = 4.07
     ProIPE(2, 12) = 15.9
     ProIPE(2, 13) = 5.79
     ProIPE(2, 14) = 1.24
     ProIPE(2, 15) = 19.7
     ProIPE(2, 16) = 0.081
     ProIPE(2, 17) = 39.41
     ProIPE(2, 18) = 1.21
     ProIPE(2, 19) = 351
     ProIPE(2, 20) = 5.08
     ProIPE(3, 1) = 120
     ProIPE(3, 2) = 12
     ProIPE(3, 3) = 6.4
     ProIPE(3, 4) = 0.44
     ProIPE(3, 5) = 0.63
     ProIPE(3, 6) = 0.7
     ProIPE(3, 7) = 9.3
     ProIPE(3, 8) = 13.2
     ProIPE(3, 9) = 318
     ProIPE(3, 10) = 53
     ProIPE(3, 11) = 4.9
     ProIPE(3, 12) = 27.7
     ProIPE(3, 13) = 8.65
     ProIPE(3, 14) = 1.45
     ProIPE(3, 15) = 30.4
     ProIPE(3, 16) = 0.104
     ProIPE(3, 17) = 60.73
     ProIPE(3, 18) = 1.74
     ProIPE(3, 19) = 890
     ProIPE(3, 20) = 6.31
     ProIPE(4, 1) = 140
     ProIPE(4, 2) = 14
     ProIPE(4, 3) = 7.3
     ProIPE(4, 4) = 0.47
     ProIPE(4, 5) = 0.69
     ProIPE(4, 6) = 0.7
     ProIPE(4, 7) = 11.2
     ProIPE(4, 8) = 16.4
     ProIPE(4, 9) = 541
     ProIPE(4, 10) = 77.3
     ProIPE(4, 11) = 5.74
     ProIPE(4, 12) = 44.9
     ProIPE(4, 13) = 12.3
     ProIPE(4, 14) = 1.65
     ProIPE(4, 15) = 44.2
     ProIPE(4, 16) = 0.129
     ProIPE(4, 17) = 88.34
     ProIPE(4, 18) = 2.45
     ProIPE(4, 19) = 1980
     ProIPE(4, 20) = 7.64
     ProIPE(5, 1) = 160
     ProIPE(5, 2) = 16
     ProIPE(5, 3) = 8.2
     ProIPE(5, 4) = 0.5
     ProIPE(5, 5) = 0.74
     ProIPE(5, 6) = 0.9
     ProIPE(5, 7) = 12.7
     ProIPE(5, 8) = 20.1
     ProIPE(5, 9) = 869
     ProIPE(5, 10) = 109
     ProIPE(5, 11) = 6.58
     ProIPE(5, 12) = 68.3
     ProIPE(5, 13) = 16.7
     ProIPE(5, 14) = 1.84
     ProIPE(5, 15) = 61.9
     ProIPE(5, 16) = 0.158
     ProIPE(5, 17) = 123.9
     ProIPE(5, 18) = 3.62
     ProIPE(5, 19) = 3960
     ProIPE(5, 20) = 9.66
     ProIPE(6, 1) = 180
     ProIPE(6, 2) = 18
     ProIPE(6, 3) = 9.1
     ProIPE(6, 4) = 0.53
     ProIPE(6, 5) = 0.8
     ProIPE(6, 6) = 0.9
     ProIPE(6, 7) = 14.6
     ProIPE(6, 8) = 23.9
     ProIPE(6, 9) = 1320
     ProIPE(6, 10) = 146
     ProIPE(6, 11) = 7.42
     ProIPE(6, 12) = 101
     ProIPE(6, 13) = 22.2
     ProIPE(6, 14) = 2.05
     ProIPE(6, 15) = 83.2
     ProIPE(6, 16) = 0.188
     ProIPE(6, 17) = 166.4
     ProIPE(6, 18) = 4.8
     ProIPE(6, 19) = 7430
     ProIPE(6, 20) = 11.3
     ProIPE(7, 1) = 200
     ProIPE(7, 2) = 20
     ProIPE(7, 3) = 10
     ProIPE(7, 4) = 0.56
     ProIPE(7, 5) = 0.85
     ProIPE(7, 6) = 1.2
     ProIPE(7, 7) = 15.9
     ProIPE(7, 8) = 28.5
     ProIPE(7, 9) = 1940
     ProIPE(7, 10) = 194
     ProIPE(7, 11) = 8.26
     ProIPE(7, 12) = 142
     ProIPE(7, 13) = 28.5
     ProIPE(7, 14) = 2.24
     ProIPE(7, 15) = 110
     ProIPE(7, 16) = 0.224
     ProIPE(7, 17) = 220.6
     ProIPE(7, 18) = 7.02
     ProIPE(7, 19) = 13000
     ProIPE(7, 20) = 14
     ProIPE(8, 1) = 220
     ProIPE(8, 2) = 22
     ProIPE(8, 3) = 11
     ProIPE(8, 4) = 0.59
     ProIPE(8, 5) = 0.92
     ProIPE(8, 6) = 1.2
     ProIPE(8, 7) = 17.7
     ProIPE(8, 8) = 33.4
     ProIPE(8, 9) = 2770
     ProIPE(8, 10) = 252
     ProIPE(8, 11) = 9.11
     ProIPE(8, 12) = 205
     ProIPE(8, 13) = 37.3
     ProIPE(8, 14) = 2.48
     ProIPE(8, 15) = 143
     ProIPE(8, 16) = 0.262
     ProIPE(8, 17) = 285.4
     ProIPE(8, 18) = 9.1
     ProIPE(8, 19) = 22700
     ProIPE(8, 20) = 15.9
     ProIPE(9, 1) = 240
     ProIPE(9, 2) = 24
     ProIPE(9, 3) = 12
     ProIPE(9, 4) = 0.62
     ProIPE(9, 5) = 0.98
     ProIPE(9, 6) = 1.5
     ProIPE(9, 7) = 19
     ProIPE(9, 8) = 39.1
     ProIPE(9, 9) = 3890
     ProIPE(9, 10) = 324
     ProIPE(9, 11) = 9.97
     ProIPE(9, 12) = 284
     ProIPE(9, 13) = 47.3
     ProIPE(9, 14) = 2.69
     ProIPE(9, 15) = 183
     ProIPE(9, 16) = 0.307
     ProIPE(9, 17) = 366.6
     ProIPE(9, 18) = 12.9
     ProIPE(9, 19) = 37400
     ProIPE(9, 20) = 19.1
     ProIPE(10, 1) = 270
     ProIPE(10, 2) = 27
     ProIPE(10, 3) = 13.5
     ProIPE(10, 4) = 0.66
     ProIPE(10, 5) = 1.02
     ProIPE(10, 6) = 1.5
     ProIPE(10, 7) = 21.9
     ProIPE(10, 8) = 45.9
     ProIPE(10, 9) = 5790
     ProIPE(10, 10) = 429
     ProIPE(10, 11) = 11.2
     ProIPE(10, 12) = 420
     ProIPE(10, 13) = 62.2
     ProIPE(10, 14) = 3.02
     ProIPE(10, 15) = 242
     ProIPE(10, 16) = 0.361
     ProIPE(10, 17) = 484
     ProIPE(10, 18) = 16
     ProIPE(10, 19) = 70600
     ProIPE(10, 20) = 22.1
     ProIPE(11, 1) = 300
     ProIPE(11, 2) = 30
     ProIPE(11, 3) = 15
     ProIPE(11, 4) = 0.71
     ProIPE(11, 5) = 1.07
     ProIPE(11, 6) = 1.5
     ProIPE(11, 7) = 24.8
     ProIPE(11, 8) = 53.8
     ProIPE(11, 9) = 8360
     ProIPE(11, 10) = 557
     ProIPE(11, 11) = 12.5
     ProIPE(11, 12) = 604
     ProIPE(11, 13) = 80.5
     ProIPE(11, 14) = 3.35
     ProIPE(11, 15) = 314
     ProIPE(11, 16) = 0.422
     ProIPE(11, 17) = 628.4
     ProIPE(11, 18) = 20.2
     ProIPE(11, 19) = 126000
     ProIPE(11, 20) = 25.7
     ProIPE(12, 1) = 330
     ProIPE(12, 2) = 33
     ProIPE(12, 3) = 16
     ProIPE(12, 4) = 0.75
     ProIPE(12, 5) = 1.15
     ProIPE(12, 6) = 1.8
     ProIPE(12, 7) = 27.1
     ProIPE(12, 8) = 62.6
     ProIPE(12, 9) = 11770
     ProIPE(12, 10) = 713
     ProIPE(12, 11) = 13.7
     ProIPE(12, 12) = 788
     ProIPE(12, 13) = 98.5
     ProIPE(12, 14) = 3.55
     ProIPE(12, 15) = 402
     ProIPE(12, 16) = 0.491
     ProIPE(12, 17) = 804.3
     ProIPE(12, 18) = 28.3
     ProIPE(12, 19) = 199000
     ProIPE(12, 20) = 30.8
     ProIPE(13, 1) = 360
     ProIPE(13, 2) = 36
     ProIPE(13, 3) = 17
     ProIPE(13, 4) = 0.8
     ProIPE(13, 5) = 1.27
     ProIPE(13, 6) = 1.8
     ProIPE(13, 7) = 29.8
     ProIPE(13, 8) = 72.7
     ProIPE(13, 9) = 16270
     ProIPE(13, 10) = 904
     ProIPE(13, 11) = 15
     ProIPE(13, 12) = 1040
     ProIPE(13, 13) = 123
     ProIPE(13, 14) = 3.79
     ProIPE(13, 15) = 510
     ProIPE(13, 16) = 0.571
     ProIPE(13, 17) = 1019
     ProIPE(13, 18) = 37.5
     ProIPE(13, 19) = 314000
     ProIPE(13, 20) = 35.1
     ProIPE(14, 1) = 400
     ProIPE(14, 2) = 40
     ProIPE(14, 3) = 18
     ProIPE(14, 4) = 0.86
     ProIPE(14, 5) = 1.35
     ProIPE(14, 6) = 2.1
     ProIPE(14, 7) = 33.1
     ProIPE(14, 8) = 84.5
     ProIPE(14, 9) = 23130
     ProIPE(14, 10) = 1160
     ProIPE(14, 11) = 16.5
     ProIPE(14, 12) = 1320
     ProIPE(14, 13) = 146
     ProIPE(14, 14) = 3.95
     ProIPE(14, 15) = 654
     ProIPE(14, 16) = 0.663
     ProIPE(14, 17) = 1307
     ProIPE(14, 18) = 51.4
     ProIPE(14, 19) = 490000
     ProIPE(14, 20) = 42.7
     ProIPE(15, 1) = 450
     ProIPE(15, 2) = 45
     ProIPE(15, 3) = 19
     ProIPE(15, 4) = 0.94
     ProIPE(15, 5) = 1.46
     ProIPE(15, 6) = 2.1
     ProIPE(15, 7) = 37.8
     ProIPE(15, 8) = 98.8
     ProIPE(15, 9) = 33740
     ProIPE(15, 10) = 1500
     ProIPE(15, 11) = 18.5
     ProIPE(15, 12) = 1680
     ProIPE(15, 13) = 176
     ProIPE(15, 14) = 4.12
     ProIPE(15, 15) = 851
     ProIPE(15, 16) = 0.776
     ProIPE(15, 17) = 1702
     ProIPE(15, 18) = 67.1
     ProIPE(15, 19) = 791000
     ProIPE(15, 20) = 50.8
     ProIPE(16, 1) = 500
     ProIPE(16, 2) = 50
     ProIPE(16, 3) = 20
     ProIPE(16, 4) = 1.02
     ProIPE(16, 5) = 1.6
     ProIPE(16, 6) = 2.1
     ProIPE(16, 7) = 42.6
     ProIPE(16, 8) = 116
     ProIPE(16, 9) = 48200
     ProIPE(16, 10) = 1930
     ProIPE(16, 11) = 20.4
     ProIPE(16, 12) = 2140
     ProIPE(16, 13) = 214
     ProIPE(16, 14) = 4.31
     ProIPE(16, 15) = 1100
     ProIPE(16, 16) = 0.907
     ProIPE(16, 17) = 2194
     ProIPE(16, 18) = 89.7
     ProIPE(16, 19) = 1250000
     ProIPE(16, 20) = 59.9
     ProIPE(17, 1) = 550
     ProIPE(17, 2) = 55
     ProIPE(17, 3) = 21
     ProIPE(17, 4) = 1.11
     ProIPE(17, 5) = 1.72
     ProIPE(17, 6) = 2.4
     ProIPE(17, 7) = 46.7
     ProIPE(17, 8) = 134
     ProIPE(17, 9) = 67120
     ProIPE(17, 10) = 2440
     ProIPE(17, 11) = 22.3
     ProIPE(17, 12) = 2670
     ProIPE(17, 13) = 254
     ProIPE(17, 14) = 4.45
     ProIPE(17, 15) = 1390
     ProIPE(17, 16) = 1.06
     ProIPE(17, 17) = 2787
     ProIPE(17, 18) = 124
     ProIPE(17, 19) = 1880000
     ProIPE(17, 20) = 72.3
     ProIPE(18, 1) = 600
     ProIPE(18, 2) = 60
     ProIPE(18, 3) = 22
     ProIPE(18, 4) = 1.2
     ProIPE(18, 5) = 1.9
     ProIPE(18, 6) = 2.4
     ProIPE(18, 7) = 51.4
     ProIPE(18, 8) = 156
     ProIPE(18, 9) = 192080
     ProIPE(18, 10) = 3070
     ProIPE(18, 11) = 24.3
     ProIPE(18, 12) = 3390
     ProIPE(18, 13) = 308
     ProIPE(18, 14) = 4.66
     ProIPE(18, 15) = 1760
     ProIPE(18, 16) = 1.22
     ProIPE(18, 17) = 3512
     ProIPE(18, 18) = 166
     ProIPE(18, 19) = 2850000
     ProIPE(18, 20) = 83.8
End Sub

Public Sub AssignProHEA()
     ReDim ProHEA(24, 20)
     ProHEA(1, 1) = 100
     ProHEA(1, 2) = 9.6
     ProHEA(1, 3) = 10
     ProHEA(1, 4) = 0.5
     ProHEA(1, 5) = 0.8
     ProHEA(1, 6) = 1.2
     ProHEA(1, 7) = 5.6
     ProHEA(1, 8) = 21.2
     ProHEA(1, 9) = 349
     ProHEA(1, 10) = 72.8
     ProHEA(1, 11) = 4.06
     ProHEA(1, 12) = 134
     ProHEA(1, 13) = 26.8
     ProHEA(1, 14) = 2.51
     ProHEA(1, 15) = 41.5
     ProHEA(1, 16) = 0.167
     ProHEA(1, 17) = 83.01
     ProHEA(1, 18) = 5.26
     ProHEA(1, 19) = 2580
     ProHEA(1, 20) = 7.56
     ProHEA(2, 1) = 120
     ProHEA(2, 2) = 11.4
     ProHEA(2, 3) = 12
     ProHEA(2, 4) = 0.5
     ProHEA(2, 5) = 0.8
     ProHEA(2, 6) = 1.2
     ProHEA(2, 7) = 7.4
     ProHEA(2, 8) = 25.3
     ProHEA(2, 9) = 606
     ProHEA(2, 10) = 106
     ProHEA(2, 11) = 4.89
     ProHEA(2, 12) = 231
     ProHEA(2, 13) = 38.5
     ProHEA(2, 14) = 3.02
     ProHEA(2, 15) = 59.7
     ProHEA(2, 16) = 0.199
     ProHEA(2, 17) = 119.5
     ProHEA(2, 18) = 6.02
     ProHEA(2, 19) = 6740
     ProHEA(2, 20) = 8.46
     ProHEA(3, 1) = 140
     ProHEA(3, 2) = 13.3
     ProHEA(3, 3) = 14
     ProHEA(3, 4) = 0.55
     ProHEA(3, 5) = 0.85
     ProHEA(3, 6) = 1.2
     ProHEA(3, 7) = 9.2
     ProHEA(3, 8) = 31.4
     ProHEA(3, 9) = 1030
     ProHEA(3, 10) = 155
     ProHEA(3, 11) = 5.73
     ProHEA(3, 12) = 389
     ProHEA(3, 13) = 55.6
     ProHEA(3, 14) = 3.52
     ProHEA(3, 15) = 86.7
     ProHEA(3, 16) = 0.247
     ProHEA(3, 17) = 173.5
     ProHEA(3, 18) = 8.16
     ProHEA(3, 19) = 15300
     ProHEA(3, 20) = 10.1
     ProHEA(4, 1) = 160
     ProHEA(4, 2) = 15.2
     ProHEA(4, 3) = 16
     ProHEA(4, 4) = 0.6
     ProHEA(4, 5) = 0.9
     ProHEA(4, 6) = 1.2
     ProHEA(4, 7) = 10.4
     ProHEA(4, 8) = 38.8
     ProHEA(4, 9) = 1670
     ProHEA(4, 10) = 220
     ProHEA(4, 11) = 6.57
     ProHEA(4, 12) = 616
     ProHEA(4, 13) = 76.9
     ProHEA(4, 14) = 3.98
     ProHEA(4, 15) = 123
     ProHEA(4, 16) = 0.304
     ProHEA(4, 17) = 245.1
     ProHEA(4, 18) = 12.3
     ProHEA(4, 19) = 31400
     ProHEA(4, 20) = 13.2
     ProHEA(5, 1) = 180
     ProHEA(5, 2) = 17.1
     ProHEA(5, 3) = 18
     ProHEA(5, 4) = 0.6
     ProHEA(5, 5) = 0.95
     ProHEA(5, 6) = 1.5
     ProHEA(5, 7) = 12.2
     ProHEA(5, 8) = 45.3
     ProHEA(5, 9) = 2510
     ProHEA(5, 10) = 294
     ProHEA(5, 11) = 7.45
     ProHEA(5, 12) = 925
     ProHEA(5, 13) = 103
     ProHEA(5, 14) = 4.52
     ProHEA(5, 15) = 162
     ProHEA(5, 16) = 0.355
     ProHEA(5, 17) = 324.9
     ProHEA(5, 18) = 14.9
     ProHEA(5, 19) = 60200
     ProHEA(5, 20) = 14.5
     ProHEA(6, 1) = 200
     ProHEA(6, 2) = 19
     ProHEA(6, 3) = 20
     ProHEA(6, 4) = 0.65
     ProHEA(6, 5) = 1
     ProHEA(6, 6) = 1.8
     ProHEA(6, 7) = 13.4
     ProHEA(6, 8) = 53.8
     ProHEA(6, 9) = 3690
     ProHEA(6, 10) = 398
     ProHEA(6, 11) = 8.28
     ProHEA(6, 12) = 1340
     ProHEA(6, 13) = 134
     ProHEA(6, 14) = 4.98
     ProHEA(6, 15) = 215
     ProHEA(6, 16) = 0.423
     ProHEA(6, 17) = 429.5
     ProHEA(6, 18) = 21.1
     ProHEA(6, 19) = 108000
     ProHEA(6, 20) = 18.1
     ProHEA(7, 1) = 220
     ProHEA(7, 2) = 21
     ProHEA(7, 3) = 22
     ProHEA(7, 4) = 0.7
     ProHEA(7, 5) = 1.1
     ProHEA(7, 6) = 1.8
     ProHEA(7, 7) = 15.2
     ProHEA(7, 8) = 64.3
     ProHEA(7, 9) = 5410
     ProHEA(7, 10) = 515
     ProHEA(7, 11) = 9.17
     ProHEA(7, 12) = 1950
     ProHEA(7, 13) = 178
     ProHEA(7, 14) = 5.51
     ProHEA(7, 15) = 284
     ProHEA(7, 16) = 0.505
     ProHEA(7, 17) = 568.5
     ProHEA(7, 18) = 28.6
     ProHEA(7, 19) = 193000
     ProHEA(7, 20) = 20.7
     ProHEA(8, 1) = 240
     ProHEA(8, 2) = 23
     ProHEA(8, 3) = 24
     ProHEA(8, 4) = 0.75
     ProHEA(8, 5) = 1.2
     ProHEA(8, 6) = 2.1
     ProHEA(8, 7) = 16.4
     ProHEA(8, 8) = 76.8
     ProHEA(8, 9) = 7760
     ProHEA(8, 10) = 675
     ProHEA(8, 11) = 10.1
     ProHEA(8, 12) = 2770
     ProHEA(8, 13) = 231
     ProHEA(8, 14) = 6
     ProHEA(8, 15) = 372
     ProHEA(8, 16) = 0.603
     ProHEA(8, 17) = 744.6
     ProHEA(8, 18) = 41.7
     ProHEA(8, 19) = 328000
     ProHEA(8, 20) = 25.2
     ProHEA(9, 1) = 260
     ProHEA(9, 2) = 25
     ProHEA(9, 3) = 26
     ProHEA(9, 4) = 0.75
     ProHEA(9, 5) = 1.25
     ProHEA(9, 6) = 2.4
     ProHEA(9, 7) = 17.7
     ProHEA(9, 8) = 86.8
     ProHEA(9, 9) = 10450
     ProHEA(9, 10) = 836
     ProHEA(9, 11) = 11
     ProHEA(9, 12) = 3670
     ProHEA(9, 13) = 282
     ProHEA(9, 14) = 6.5
     ProHEA(9, 15) = 460
     ProHEA(9, 16) = 0.682
     ProHEA(9, 17) = 919.8
     ProHEA(9, 18) = 52.6
     ProHEA(9, 19) = 516000
     ProHEA(9, 20) = 28.8
     ProHEA(10, 1) = 280
     ProHEA(10, 2) = 27
     ProHEA(10, 3) = 28
     ProHEA(10, 4) = 0.8
     ProHEA(10, 5) = 1.3
     ProHEA(10, 6) = 2.4
     ProHEA(10, 7) = 19.6
     ProHEA(10, 8) = 97.3
     ProHEA(10, 9) = 13670
     ProHEA(10, 10) = 1010
     ProHEA(10, 11) = 11.9
     ProHEA(10, 12) = 4760
     ProHEA(10, 13) = 340
     ProHEA(10, 14) = 7
     ProHEA(10, 15) = 556
     ProHEA(10, 16) = 0.764
     ProHEA(10, 17) = 1112
     ProHEA(10, 18) = 62.4
     ProHEA(10, 19) = 785000
     ProHEA(10, 20) = 31.7
     ProHEA(11, 1) = 300
     ProHEA(11, 2) = 29
     ProHEA(11, 3) = 30
     ProHEA(11, 4) = 0.85
     ProHEA(11, 5) = 1.4
     ProHEA(11, 6) = 2.7
     ProHEA(11, 7) = 20.8
     ProHEA(11, 8) = 113
     ProHEA(11, 9) = 18260
     ProHEA(11, 10) = 1260
     ProHEA(11, 11) = 12.7
     ProHEA(11, 12) = 6310
     ProHEA(11, 13) = 421
     ProHEA(11, 14) = 7.49
     ProHEA(11, 15) = 692
     ProHEA(11, 16) = 0.883
     ProHEA(11, 17) = 1383
     ProHEA(11, 18) = 85.6
     ProHEA(11, 19) = 1200000
     ProHEA(11, 20) = 37.3
     ProHEA(12, 1) = 320
     ProHEA(12, 2) = 31
     ProHEA(12, 3) = 30
     ProHEA(12, 4) = 0.9
     ProHEA(12, 5) = 1.55
     ProHEA(12, 6) = 2.7
     ProHEA(12, 7) = 22.5
     ProHEA(12, 8) = 124
     ProHEA(12, 9) = 22930
     ProHEA(12, 10) = 1480
     ProHEA(12, 11) = 13.6
     ProHEA(12, 12) = 6990
     ProHEA(12, 13) = 466
     ProHEA(12, 14) = 7.49
     ProHEA(12, 15) = 814
     ProHEA(12, 16) = 0.976
     ProHEA(12, 17) = 1628
     ProHEA(12, 18) = 108
     ProHEA(12, 19) = 1510000
     ProHEA(12, 20) = 41.1
     ProHEA(13, 1) = 340
     ProHEA(13, 2) = 33
     ProHEA(13, 3) = 30
     ProHEA(13, 4) = 0.95
     ProHEA(13, 5) = 1.65
     ProHEA(13, 6) = 2.7
     ProHEA(13, 7) = 24.3
     ProHEA(13, 8) = 133
     ProHEA(13, 9) = 27690
     ProHEA(13, 10) = 1680
     ProHEA(13, 11) = 14.4
     ProHEA(13, 12) = 7440
     ProHEA(13, 13) = 496
     ProHEA(13, 14) = 7.46
     ProHEA(13, 15) = 925
     ProHEA(13, 16) = 1.05
     ProHEA(13, 17) = 1850
     ProHEA(13, 18) = 128
     ProHEA(13, 19) = 1820000
     ProHEA(13, 20) = 45
     ProHEA(14, 1) = 360
     ProHEA(14, 2) = 35
     ProHEA(14, 3) = 30
     ProHEA(14, 4) = 1
     ProHEA(14, 5) = 1.75
     ProHEA(14, 6) = 2.7
     ProHEA(14, 7) = 26.1
     ProHEA(14, 8) = 143
     ProHEA(14, 9) = 33090
     ProHEA(14, 10) = 1890
     ProHEA(14, 11) = 15.2
     ProHEA(14, 12) = 7890
     ProHEA(14, 13) = 526
     ProHEA(14, 14) = 7.43
     ProHEA(14, 15) = 1040
     ProHEA(14, 16) = 1.12
     ProHEA(14, 17) = 2088
     ProHEA(14, 18) = 149
     ProHEA(14, 19) = 2180000
     ProHEA(14, 20) = 49
     ProHEA(15, 1) = 400
     ProHEA(15, 2) = 39
     ProHEA(15, 3) = 30
     ProHEA(15, 4) = 1.1
     ProHEA(15, 5) = 1.9
     ProHEA(15, 6) = 2.7
     ProHEA(15, 7) = 29.8
     ProHEA(15, 8) = 159
     ProHEA(15, 9) = 45070
     ProHEA(15, 10) = 2310
     ProHEA(15, 11) = 16.8
     ProHEA(15, 12) = 8560
     ProHEA(15, 13) = 571
     ProHEA(15, 14) = 7.34
     ProHEA(15, 15) = 1280
     ProHEA(15, 16) = 1.25
     ProHEA(15, 17) = 2562
     ProHEA(15, 18) = 190
     ProHEA(15, 19) = 2940000
     ProHEA(15, 20) = 57.3
     ProHEA(16, 1) = 450
     ProHEA(16, 2) = 44
     ProHEA(16, 3) = 30
     ProHEA(16, 4) = 1.15
     ProHEA(16, 5) = 2.1
     ProHEA(16, 6) = 2.7
     ProHEA(16, 7) = 34.4
     ProHEA(16, 8) = 178
     ProHEA(16, 9) = 63720
     ProHEA(16, 10) = 2900
     ProHEA(16, 11) = 18.9
     ProHEA(16, 12) = 9470
     ProHEA(16, 13) = 631
     ProHEA(16, 14) = 7.29
     ProHEA(16, 15) = 1610
     ProHEA(16, 16) = 1.4
     ProHEA(16, 17) = 3216
     ProHEA(16, 18) = 245
     ProHEA(16, 19) = 4150000
     ProHEA(16, 20) = 65.8
     ProHEA(17, 1) = 500
     ProHEA(17, 2) = 49
     ProHEA(17, 3) = 30
     ProHEA(17, 4) = 1.2
     ProHEA(17, 5) = 2.3
     ProHEA(17, 6) = 2.7
     ProHEA(17, 7) = 39
     ProHEA(17, 8) = 198
     ProHEA(17, 9) = 86970
     ProHEA(17, 10) = 3550
     ProHEA(17, 11) = 21
     ProHEA(17, 12) = 10370
     ProHEA(17, 13) = 691
     ProHEA(17, 14) = 7.24
     ProHEA(17, 15) = 1970
     ProHEA(17, 16) = 1.55
     ProHEA(17, 17) = 3949
     ProHEA(17, 18) = 310
     ProHEA(17, 19) = 5610000
     ProHEA(17, 20) = 74.7
     ProHEA(18, 1) = 550
     ProHEA(18, 2) = 54
     ProHEA(18, 3) = 30
     ProHEA(18, 4) = 1.25
     ProHEA(18, 5) = 2.4
     ProHEA(18, 6) = 2.7
     ProHEA(18, 7) = 43.8
     ProHEA(18, 8) = 212
     ProHEA(18, 9) = 111900
     ProHEA(18, 10) = 4150
     ProHEA(18, 11) = 23
     ProHEA(18, 12) = 10820
     ProHEA(18, 13) = 721
     ProHEA(18, 14) = 7.15
     ProHEA(18, 15) = 2310
     ProHEA(18, 16) = 1.66
     ProHEA(18, 17) = 4622
     ProHEA(18, 18) = 353
     ProHEA(18, 19) = 7190000
     ProHEA(18, 20) = 83.7
     ProHEA(19, 1) = 600
     ProHEA(19, 2) = 59
     ProHEA(19, 3) = 30
     ProHEA(19, 4) = 1.3
     ProHEA(19, 5) = 2.5
     ProHEA(19, 6) = 2.7
     ProHEA(19, 7) = 48.6
     ProHEA(19, 8) = 226
     ProHEA(19, 9) = 141200
     ProHEA(19, 10) = 4790
     ProHEA(19, 11) = 25
     ProHEA(19, 12) = 11270
     ProHEA(19, 13) = 751
     ProHEA(19, 14) = 7.05
     ProHEA(19, 15) = 2680
     ProHEA(19, 16) = 1.78
     ProHEA(19, 17) = 5350
     ProHEA(19, 18) = 399
     ProHEA(19, 19) = 8980000
     ProHEA(19, 20) = 93.2
     ProHEA(20, 1) = 650
     ProHEA(20, 2) = 64
     ProHEA(20, 3) = 30
     ProHEA(20, 4) = 1.35
     ProHEA(20, 5) = 2.6
     ProHEA(20, 6) = 2.7
     ProHEA(20, 7) = 53.4
     ProHEA(20, 8) = 242
     ProHEA(20, 9) = 175200
     ProHEA(20, 10) = 5470
     ProHEA(20, 11) = 26.9
     ProHEA(20, 12) = 11720
     ProHEA(20, 13) = 782
     ProHEA(20, 14) = 6.97
     ProHEA(20, 15) = 3070
     ProHEA(20, 16) = 1.9
     ProHEA(20, 17) = 6136
     ProHEA(20, 18) = 450
     ProHEA(20, 19) = 11000000
     ProHEA(20, 20) = 103
     ProHEA(21, 1) = 700
     ProHEA(21, 2) = 69
     ProHEA(21, 3) = 30
     ProHEA(21, 4) = 1.45
     ProHEA(21, 5) = 2.7
     ProHEA(21, 6) = 2.7
     ProHEA(21, 7) = 58.2
     ProHEA(21, 8) = 260
     ProHEA(21, 9) = 215300
     ProHEA(21, 10) = 6240
     ProHEA(21, 11) = 28.7
     ProHEA(21, 12) = 12810
     ProHEA(21, 13) = 812
     ProHEA(21, 14) = 6.84
     ProHEA(21, 15) = 3520
     ProHEA(21, 16) = 2.04
     ProHEA(21, 17) = 7032
     ProHEA(21, 18) = 515
     ProHEA(21, 19) = 13400000
     ProHEA(21, 20) = 117
     ProHEA(22, 1) = 800
     ProHEA(22, 2) = 79
     ProHEA(22, 3) = 30
     ProHEA(22, 4) = 1.5
     ProHEA(22, 5) = 2.8
     ProHEA(22, 6) = 3
     ProHEA(22, 7) = 67.4
     ProHEA(22, 8) = 286
     ProHEA(22, 9) = 303400
     ProHEA(22, 10) = 7680
     ProHEA(22, 11) = 32.6
     ProHEA(22, 12) = 12640
     ProHEA(22, 13) = 843
     ProHEA(22, 14) = 6.65
     ProHEA(22, 15) = 4350
     ProHEA(22, 16) = 2.24
     ProHEA(22, 17) = 8699
     ProHEA(22, 18) = 599
     ProHEA(22, 19) = 18300000
     ProHEA(22, 20) = 139
     ProHEA(23, 1) = 900
     ProHEA(23, 2) = 89
     ProHEA(23, 3) = 30
     ProHEA(23, 4) = 1.6
     ProHEA(23, 5) = 3
     ProHEA(23, 6) = 3
     ProHEA(23, 7) = 77
     ProHEA(23, 8) = 321
     ProHEA(23, 9) = 422100
     ProHEA(23, 10) = 9480
     ProHEA(23, 11) = 36.3
     ProHEA(23, 12) = 13550
     ProHEA(23, 13) = 903
     ProHEA(23, 14) = 6.5
     ProHEA(23, 15) = 5410
     ProHEA(23, 16) = 2.52
     ProHEA(23, 17) = 10811
     ProHEA(23, 18) = 739
     ProHEA(23, 19) = 25000000
     ProHEA(23, 20) = 163
     ProHEA(24, 1) = 1000
     ProHEA(24, 2) = 99
     ProHEA(24, 3) = 30
     ProHEA(24, 4) = 1.65
     ProHEA(24, 5) = 3.1
     ProHEA(24, 6) = 3
     ProHEA(24, 7) = 86.8
     ProHEA(24, 8) = 347
     ProHEA(24, 9) = 553800
     ProHEA(24, 10) = 11910
     ProHEA(24, 11) = 40
     ProHEA(24, 12) = 14000
     ProHEA(24, 13) = 934
     ProHEA(24, 14) = 6.35
     ProHEA(24, 15) = 6410
     ProHEA(24, 16) = 2.72
     ProHEA(24, 17) = 12842
     ProHEA(24, 18) = 825
     ProHEA(24, 19) = 32100000
     ProHEA(24, 20) = 185
End Sub

Public Sub AssignProHEB()
     ReDim ProHEB(24, 20)
     ProHEB(1, 1) = 100
     ProHEB(1, 2) = 10
     ProHEB(1, 3) = 10
     ProHEB(1, 4) = 0.6
     ProHEB(1, 5) = 1
     ProHEB(1, 6) = 1.2
     ProHEB(1, 7) = 5.6
     ProHEB(1, 8) = 26
     ProHEB(1, 9) = 450
     ProHEB(1, 10) = 89.9
     ProHEB(1, 11) = 4.16
     ProHEB(1, 12) = 167
     ProHEB(1, 13) = 33.5
     ProHEB(1, 14) = 2.53
     ProHEB(1, 15) = 52.1
     ProHEB(1, 16) = 0.204
     ProHEB(1, 17) = 104.2
     ProHEB(1, 18) = 9.29
     ProHEB(1, 19) = 3380
     ProHEB(1, 20) = 9.04
     ProHEB(2, 1) = 120
     ProHEB(2, 2) = 12
     ProHEB(2, 3) = 12
     ProHEB(2, 4) = 0.65
     ProHEB(2, 5) = 1.1
     ProHEB(2, 6) = 1.2
     ProHEB(2, 7) = 7.4
     ProHEB(2, 8) = 34
     ProHEB(2, 9) = 864
     ProHEB(2, 10) = 144
     ProHEB(2, 11) = 5.04
     ProHEB(2, 12) = 318
     ProHEB(2, 13) = 52.9
     ProHEB(2, 14) = 3.06
     ProHEB(2, 15) = 82.6
     ProHEB(2, 16) = 0.267
     ProHEB(2, 17) = 165.2
     ProHEB(2, 18) = 13.9
     ProHEB(2, 19) = 9410
     ProHEB(2, 20) = 11
     ProHEB(3, 1) = 140
     ProHEB(3, 2) = 14
     ProHEB(3, 3) = 14
     ProHEB(3, 4) = 0.7
     ProHEB(3, 5) = 1.2
     ProHEB(3, 6) = 1.2
     ProHEB(3, 7) = 9.2
     ProHEB(3, 8) = 43
     ProHEB(3, 9) = 1510
     ProHEB(3, 10) = 216
     ProHEB(3, 11) = 5.93
     ProHEB(3, 12) = 550
     ProHEB(3, 13) = 78.5
     ProHEB(3, 14) = 3.58
     ProHEB(3, 15) = 123
     ProHEB(3, 16) = 0.337
     ProHEB(3, 17) = 245.4
     ProHEB(3, 18) = 29.3
     ProHEB(3, 19) = 22500
     ProHEB(3, 20) = 13.1
     ProHEB(4, 1) = 160
     ProHEB(4, 2) = 16
     ProHEB(4, 3) = 16
     ProHEB(4, 4) = 0.8
     ProHEB(4, 5) = 1.3
     ProHEB(4, 6) = 1.5
     ProHEB(4, 7) = 10.4
     ProHEB(4, 8) = 54.3
     ProHEB(4, 9) = 2490
     ProHEB(4, 10) = 311
     ProHEB(4, 11) = 6.78
     ProHEB(4, 12) = 889
     ProHEB(4, 13) = 111
     ProHEB(4, 14) = 4.05
     ProHEB(4, 15) = 177
     ProHEB(4, 16) = 0.426
     ProHEB(4, 17) = 354
     ProHEB(4, 18) = 31.4
     ProHEB(4, 19) = 47900
     ProHEB(4, 20) = 17.6
     ProHEB(5, 1) = 180
     ProHEB(5, 2) = 18
     ProHEB(5, 3) = 18
     ProHEB(5, 4) = 0.85
     ProHEB(5, 5) = 1.4
     ProHEB(5, 6) = 1.5
     ProHEB(5, 7) = 12.2
     ProHEB(5, 8) = 65.3
     ProHEB(5, 9) = 3830
     ProHEB(5, 10) = 426
     ProHEB(5, 11) = 7.66
     ProHEB(5, 12) = 1360
     ProHEB(5, 13) = 151
     ProHEB(5, 14) = 4.57
     ProHEB(5, 15) = 241
     ProHEB(5, 16) = 0.512
     ProHEB(5, 17) = 481.4
     ProHEB(5, 18) = 42.3
     ProHEB(5, 19) = 93700
     ProHEB(5, 20) = 20.2
     ProHEB(6, 1) = 200
     ProHEB(6, 2) = 20
     ProHEB(6, 3) = 20
     ProHEB(6, 4) = 0.9
     ProHEB(6, 5) = 1.5
     ProHEB(6, 6) = 1.8
     ProHEB(6, 7) = 13.4
     ProHEB(6, 8) = 78.1
     ProHEB(6, 9) = 5700
     ProHEB(6, 10) = 570
     ProHEB(6, 11) = 8.54
     ProHEB(6, 12) = 2000
     ProHEB(6, 13) = 200
     ProHEB(6, 14) = 5.07
     ProHEB(6, 15) = 321
     ProHEB(6, 16) = 0.613
     ProHEB(6, 17) = 642.5
     ProHEB(6, 18) = 59.5
     ProHEB(6, 19) = 171000
     ProHEB(6, 20) = 24.8
     ProHEB(7, 1) = 220
     ProHEB(7, 2) = 22
     ProHEB(7, 3) = 22
     ProHEB(7, 4) = 0.95
     ProHEB(7, 5) = 1.6
     ProHEB(7, 6) = 1.8
     ProHEB(7, 7) = 15.2
     ProHEB(7, 8) = 91
     ProHEB(7, 9) = 8090
     ProHEB(7, 10) = 736
     ProHEB(7, 11) = 9.43
     ProHEB(7, 12) = 2840
     ProHEB(7, 13) = 258
     ProHEB(7, 14) = 5.59
     ProHEB(7, 15) = 414
     ProHEB(7, 16) = 0.715
     ProHEB(7, 17) = 827
     ProHEB(7, 18) = 76.8
     ProHEB(7, 19) = 295000
     ProHEB(7, 20) = 27.9
     ProHEB(8, 1) = 240
     ProHEB(8, 2) = 24
     ProHEB(8, 3) = 24
     ProHEB(8, 4) = 1
     ProHEB(8, 5) = 1.7
     ProHEB(8, 6) = 2.1
     ProHEB(8, 7) = 16.4
     ProHEB(8, 8) = 106
     ProHEB(8, 9) = 11260
     ProHEB(8, 10) = 938
     ProHEB(8, 11) = 10.3
     ProHEB(8, 12) = 3920
     ProHEB(8, 13) = 327
     ProHEB(8, 14) = 6.08
     ProHEB(8, 15) = 527
     ProHEB(8, 16) = 0.832
     ProHEB(8, 17) = 1053
     ProHEB(8, 18) = 103
     ProHEB(8, 19) = 487000
     ProHEB(8, 20) = 33.2
     ProHEB(9, 1) = 260
     ProHEB(9, 2) = 26
     ProHEB(9, 3) = 26
     ProHEB(9, 4) = 1
     ProHEB(9, 5) = 17.5
     ProHEB(9, 6) = 2.4
     ProHEB(9, 7) = 17.7
     ProHEB(9, 8) = 118
     ProHEB(9, 9) = 14920
     ProHEB(9, 10) = 1150
     ProHEB(9, 11) = 11.2
     ProHEB(9, 12) = 5130
     ProHEB(9, 13) = 395
     ProHEB(9, 14) = 6.58
     ProHEB(9, 15) = 641
     ProHEB(9, 16) = 0.93
     ProHEB(9, 17) = 1283
     ProHEB(9, 18) = 124
     ProHEB(9, 19) = 754000
     ProHEB(9, 20) = 37.6
     ProHEB(10, 1) = 280
     ProHEB(10, 2) = 28
     ProHEB(10, 3) = 28
     ProHEB(10, 4) = 1.05
     ProHEB(10, 5) = 1.8
     ProHEB(10, 6) = 2.4
     ProHEB(10, 7) = 19.6
     ProHEB(10, 8) = 131
     ProHEB(10, 9) = 19270
     ProHEB(10, 10) = 1380
     ProHEB(10, 11) = 12.1
     ProHEB(10, 12) = 6590
     ProHEB(10, 13) = 471
     ProHEB(10, 14) = 7.09
     ProHEB(10, 15) = 767
     ProHEB(10, 16) = 1.03
     ProHEB(10, 17) = 1534
     ProHEB(10, 18) = 144
     ProHEB(10, 19) = 1130000
     ProHEB(10, 20) = 41.1
     ProHEB(11, 1) = 300
     ProHEB(11, 2) = 30
     ProHEB(11, 3) = 30
     ProHEB(11, 4) = 1.1
     ProHEB(11, 5) = 1.9
     ProHEB(11, 6) = 2.7
     ProHEB(11, 7) = 20.8
     ProHEB(11, 8) = 149
     ProHEB(11, 9) = 25170
     ProHEB(11, 10) = 1680
     ProHEB(11, 11) = 13
     ProHEB(11, 12) = 8560
     ProHEB(11, 13) = 571
     ProHEB(11, 14) = 7.58
     ProHEB(11, 15) = 934
     ProHEB(11, 16) = 1.17
     ProHEB(11, 17) = 1869
     ProHEB(11, 18) = 186
     ProHEB(11, 19) = 1690000
     ProHEB(11, 20) = 47.4
     ProHEB(12, 1) = 320
     ProHEB(12, 2) = 32
     ProHEB(12, 3) = 30
     ProHEB(12, 4) = 1.15
     ProHEB(12, 5) = 2.05
     ProHEB(12, 6) = 2.7
     ProHEB(12, 7) = 22.5
     ProHEB(12, 8) = 161
     ProHEB(12, 9) = 30820
     ProHEB(12, 10) = 1930
     ProHEB(12, 11) = 13.8
     ProHEB(12, 12) = 9240
     ProHEB(12, 13) = 616
     ProHEB(12, 14) = 7.57
     ProHEB(12, 15) = 1070
     ProHEB(12, 16) = 1.27
     ProHEB(12, 17) = 2149
     ProHEB(12, 18) = 226
     ProHEB(12, 19) = 2070000
     ProHEB(12, 20) = 51.8
     ProHEB(13, 1) = 340
     ProHEB(13, 2) = 34
     ProHEB(13, 3) = 30
     ProHEB(13, 4) = 1.2
     ProHEB(13, 5) = 2.15
     ProHEB(13, 6) = 2.7
     ProHEB(13, 7) = 24.3
     ProHEB(13, 8) = 171
     ProHEB(13, 9) = 36660
     ProHEB(13, 10) = 2160
     ProHEB(13, 11) = 14.6
     ProHEB(13, 12) = 9690
     ProHEB(13, 13) = 646
     ProHEB(13, 14) = 7.53
     ProHEB(13, 15) = 1200
     ProHEB(13, 16) = 1.34
     ProHEB(13, 17) = 2408
     ProHEB(13, 18) = 258
     ProHEB(13, 19) = 2450000
     ProHEB(13, 20) = 56.1
     ProHEB(14, 1) = 360
     ProHEB(14, 2) = 36
     ProHEB(14, 3) = 30
     ProHEB(14, 4) = 1.25
     ProHEB(14, 5) = 2.25
     ProHEB(14, 6) = 2.7
     ProHEB(14, 7) = 26.1
     ProHEB(14, 8) = 181
     ProHEB(14, 9) = 43190
     ProHEB(14, 10) = 2400
     ProHEB(14, 11) = 15.5
     ProHEB(14, 12) = 10140
     ProHEB(14, 13) = 676
     ProHEB(14, 14) = 4.49
     ProHEB(14, 15) = 1340
     ProHEB(14, 16) = 1.42
     ProHEB(14, 17) = 2683
     ProHEB(14, 18) = 293
     ProHEB(14, 19) = 2880000
     ProHEB(14, 20) = 60.6
     ProHEB(15, 1) = 400
     ProHEB(15, 2) = 40
     ProHEB(15, 3) = 30
     ProHEB(15, 4) = 1.35
     ProHEB(15, 5) = 2.4
     ProHEB(15, 6) = 2.7
     ProHEB(15, 7) = 29.8
     ProHEB(15, 8) = 198
     ProHEB(15, 9) = 57680
     ProHEB(15, 10) = 2880
     ProHEB(15, 11) = 17.1
     ProHEB(15, 12) = 10820
     ProHEB(15, 13) = 721
     ProHEB(15, 14) = 7.4
     ProHEB(15, 15) = 1620
     ProHEB(15, 16) = 1.55
     ProHEB(15, 17) = 3232
     ProHEB(15, 18) = 357
     ProHEB(15, 19) = 3820000
     ProHEB(15, 20) = 70
     ProHEB(16, 1) = 450
     ProHEB(16, 2) = 45
     ProHEB(16, 3) = 30
     ProHEB(16, 4) = 1.4
     ProHEB(16, 5) = 2.6
     ProHEB(16, 6) = 2.7
     ProHEB(16, 7) = 34.4
     ProHEB(16, 8) = 218
     ProHEB(16, 9) = 79890
     ProHEB(16, 10) = 3550
     ProHEB(16, 11) = 19.1
     ProHEB(16, 12) = 11720
     ProHEB(16, 13) = 781
     ProHEB(16, 14) = 7.33
     ProHEB(16, 15) = 1990
     ProHEB(16, 16) = 1.71
     ProHEB(16, 17) = 3982
     ProHEB(16, 18) = 442
     ProHEB(16, 19) = 5260000
     ProHEB(16, 20) = 79.7
     ProHEB(17, 1) = 500
     ProHEB(17, 2) = 50
     ProHEB(17, 3) = 30
     ProHEB(17, 4) = 1.45
     ProHEB(17, 5) = 2.8
     ProHEB(17, 6) = 2.7
     ProHEB(17, 7) = 39
     ProHEB(17, 8) = 239
     ProHEB(17, 9) = 107200
     ProHEB(17, 10) = 4290
     ProHEB(17, 11) = 21.2
     ProHEB(17, 12) = 12620
     ProHEB(17, 13) = 842
     ProHEB(17, 14) = 7.27
     ProHEB(17, 15) = 2410
     ProHEB(17, 16) = 1.87
     ProHEB(17, 17) = 4815
     ProHEB(17, 18) = 540
     ProHEB(17, 19) = 7020000
     ProHEB(17, 20) = 89.8
     ProHEB(18, 1) = 550
     ProHEB(18, 2) = 55
     ProHEB(18, 3) = 30
     ProHEB(18, 4) = 1.5
     ProHEB(18, 5) = 2.9
     ProHEB(18, 6) = 2.7
     ProHEB(18, 7) = 43.8
     ProHEB(18, 8) = 254
     ProHEB(18, 9) = 136700
     ProHEB(18, 10) = 4970
     ProHEB(18, 11) = 23.2
     ProHEB(18, 12) = 13080
     ProHEB(18, 13) = 872
     ProHEB(18, 14) = 7.17
     ProHEB(18, 15) = 2800
     ProHEB(18, 16) = 1.99
     ProHEB(18, 17) = 5591
     ProHEB(18, 18) = 602
     ProHEB(18, 19) = 8860000
     ProHEB(18, 20) = 100
     ProHEB(19, 1) = 600
     ProHEB(19, 2) = 60
     ProHEB(19, 3) = 30
     ProHEB(19, 4) = 1.55
     ProHEB(19, 5) = 3
     ProHEB(19, 6) = 2.7
     ProHEB(19, 7) = 48.6
     ProHEB(19, 8) = 270
     ProHEB(19, 9) = 171000
     ProHEB(19, 10) = 5700
     ProHEB(19, 11) = 25.2
     ProHEB(19, 12) = 13530
     ProHEB(19, 13) = 902
     ProHEB(19, 14) = 7.08
     ProHEB(19, 15) = 3210
     ProHEB(19, 16) = 2.12
     ProHEB(19, 17) = 6425
     ProHEB(19, 18) = 669
     ProHEB(19, 19) = 1100000
     ProHEB(19, 20) = 111
     ProHEB(20, 1) = 650
     ProHEB(20, 2) = 65
     ProHEB(20, 3) = 30
     ProHEB(20, 4) = 1.6
     ProHEB(20, 5) = 3.1
     ProHEB(20, 6) = 2.7
     ProHEB(20, 7) = 53.4
     ProHEB(20, 8) = 286
     ProHEB(20, 9) = 210600
     ProHEB(20, 10) = 6480
     ProHEB(20, 11) = 27.1
     ProHEB(20, 12) = 13980
     ProHEB(20, 13) = 932
     ProHEB(20, 14) = 6.99
     ProHEB(20, 15) = 3660
     ProHEB(20, 16) = 2.25
     ProHEB(20, 17) = 7320
     ProHEB(20, 18) = 741
     ProHEB(20, 19) = 13400000
     ProHEB(20, 20) = 122
     ProHEB(21, 1) = 700
     ProHEB(21, 2) = 70
     ProHEB(21, 3) = 30
     ProHEB(21, 4) = 1.7
     ProHEB(21, 5) = 3.2
     ProHEB(21, 6) = 2.7
     ProHEB(21, 7) = 58.2
     ProHEB(21, 8) = 306
     ProHEB(21, 9) = 256900
     ProHEB(21, 10) = 7340
     ProHEB(21, 11) = 29
     ProHEB(21, 12) = 14440
     ProHEB(21, 13) = 963
     ProHEB(21, 14) = 6.87
     ProHEB(21, 15) = 4160
     ProHEB(21, 16) = 2.41
     ProHEB(21, 17) = 8327
     ProHEB(21, 18) = 833
     ProHEB(21, 19) = 16100000
     ProHEB(21, 20) = 137
     ProHEB(22, 1) = 800
     ProHEB(22, 2) = 80
     ProHEB(22, 3) = 30
     ProHEB(22, 4) = 1.75
     ProHEB(22, 5) = 3.3
     ProHEB(22, 6) = 3
     ProHEB(22, 7) = 67.4
     ProHEB(22, 8) = 334
     ProHEB(22, 9) = 359100
     ProHEB(22, 10) = 8980
     ProHEB(22, 11) = 32.8
     ProHEB(22, 12) = 14900
     ProHEB(22, 13) = 994
     ProHEB(22, 14) = 6.68
     ProHEB(22, 15) = 5110
     ProHEB(22, 16) = 2.62
     ProHEB(22, 17) = 10229
     ProHEB(22, 18) = 949
     ProHEB(22, 19) = 21800000
     ProHEB(22, 20) = 162
     ProHEB(23, 1) = 900
     ProHEB(23, 2) = 90
     ProHEB(23, 3) = 30
     ProHEB(23, 4) = 1.85
     ProHEB(23, 5) = 3.5
     ProHEB(23, 6) = 3
     ProHEB(23, 7) = 77
     ProHEB(23, 8) = 371
     ProHEB(23, 9) = 494100
     ProHEB(23, 10) = 10890
     ProHEB(23, 11) = 36.5
     ProHEB(23, 12) = 15820
     ProHEB(23, 13) = 1050
     ProHEB(23, 14) = 6.53
     ProHEB(23, 15) = 6290
     ProHEB(23, 16) = 2.91
     ProHEB(23, 17) = 12584
     ProHEB(23, 18) = 1140
     ProHEB(23, 19) = 29500000
     ProHEB(23, 20) = 189
     ProHEB(24, 1) = 1000
     ProHEB(24, 2) = 100
     ProHEB(24, 3) = 30
     ProHEB(24, 4) = 1.9
     ProHEB(24, 5) = 3.6
     ProHEB(24, 6) = 3
     ProHEB(24, 7) = 86.8
     ProHEB(24, 8) = 400
     ProHEB(24, 9) = 644700
     ProHEB(24, 10) = 12890
     ProHEB(24, 11) = 40.1
     ProHEB(24, 12) = 16280
     ProHEB(24, 13) = 1090
     ProHEB(24, 14) = 6.38
     ProHEB(24, 15) = 7430
     ProHEB(24, 16) = 3.14
     ProHEB(24, 17) = 14855
     ProHEB(24, 18) = 1260
     ProHEB(24, 19) = 37600000
     ProHEB(24, 20) = 212
End Sub

Public Sub AssignProHEM()
     ReDim ProHEM(24, 20)
     ProHEM(1, 1) = 100
     ProHEM(1, 2) = 12
     ProHEM(1, 3) = 10.6
     ProHEM(1, 4) = 1.2
     ProHEM(1, 5) = 2
     ProHEM(1, 6) = 1.2
     ProHEM(1, 7) = 5.6
     ProHEM(1, 8) = 53.2
     ProHEM(1, 9) = 1140
     ProHEM(1, 10) = 190
     ProHEM(1, 11) = 4.63
     ProHEM(1, 12) = 399
     ProHEM(1, 13) = 75.3
     ProHEM(1, 14) = 2.74
     ProHEM(1, 15) = 118
     ProHEM(1, 16) = 0.418
     ProHEM(1, 17) = 235.8
     ProHEM(1, 18) = 68.5
     ProHEM(1, 19) = 9930
     ProHEM(1, 20) = 18
     ProHEM(2, 1) = 120
     ProHEM(2, 2) = 14
     ProHEM(2, 3) = 12.6
     ProHEM(2, 4) = 1.25
     ProHEM(2, 5) = 2.1
     ProHEM(2, 6) = 1.2
     ProHEM(2, 7) = 7.4
     ProHEM(2, 8) = 66.4
     ProHEM(2, 9) = 2020
     ProHEM(2, 10) = 288
     ProHEM(2, 11) = 5.51
     ProHEM(2, 12) = 703
     ProHEM(2, 13) = 112
     ProHEM(2, 14) = 3.25
     ProHEM(2, 15) = 175
     ProHEM(2, 16) = 0.521
     ProHEM(2, 17) = 350.6
     ProHEM(2, 18) = 92
     ProHEM(2, 19) = 24800
     ProHEM(2, 20) = 21.2
     ProHEM(3, 1) = 140
     ProHEM(3, 2) = 16
     ProHEM(3, 3) = 14.6
     ProHEM(3, 4) = 1.3
     ProHEM(3, 5) = 2.2
     ProHEM(3, 6) = 1.2
     ProHEM(3, 7) = 9.2
     ProHEM(3, 8) = 80.6
     ProHEM(3, 9) = 3290
     ProHEM(3, 10) = 411
     ProHEM(3, 11) = 6.39
     ProHEM(3, 12) = 1140
     ProHEM(3, 13) = 157
     ProHEM(3, 14) = 3.77
     ProHEM(3, 15) = 247
     ProHEM(3, 16) = 0.632
     ProHEM(3, 17) = 494.8
     ProHEM(3, 18) = 120
     ProHEM(3, 19) = 54300
     ProHEM(3, 20) = 24.5
     ProHEM(4, 1) = 160
     ProHEM(4, 2) = 18
     ProHEM(4, 3) = 16.6
     ProHEM(4, 4) = 1.4
     ProHEM(4, 5) = 2.3
     ProHEM(4, 6) = 1.5
     ProHEM(4, 7) = 10.4
     ProHEM(4, 8) = 97.1
     ProHEM(4, 9) = 5100
     ProHEM(4, 10) = 566
     ProHEM(4, 11) = 7.25
     ProHEM(4, 12) = 1760
     ProHEM(4, 13) = 212
     ProHEM(4, 14) = 4.26
     ProHEM(4, 15) = 337
     ProHEM(4, 16) = 0.762
     ProHEM(4, 17) = 674.6
     ProHEM(4, 18) = 163
     ProHEM(4, 19) = 108000
     ProHEM(4, 20) = 30.8
     ProHEM(5, 1) = 180
     ProHEM(5, 2) = 20
     ProHEM(5, 3) = 18.6
     ProHEM(5, 4) = 1.45
     ProHEM(5, 5) = 2.4
     ProHEM(5, 6) = 1.5
     ProHEM(5, 7) = 12.2
     ProHEM(5, 8) = 113
     ProHEM(5, 9) = 7480
     ProHEM(5, 10) = 748
     ProHEM(5, 11) = 8.13
     ProHEM(5, 12) = 2580
     ProHEM(5, 13) = 277
     ProHEM(5, 14) = 4.77
     ProHEM(5, 15) = 442
     ProHEM(5, 16) = 0.889
     ProHEM(5, 17) = 883.4
     ProHEM(5, 18) = 204
     ProHEM(5, 19) = 199000
     ProHEM(5, 20) = 34.7
     ProHEM(6, 1) = 200
     ProHEM(6, 2) = 22
     ProHEM(6, 3) = 20.6
     ProHEM(6, 4) = 1.5
     ProHEM(6, 5) = 2.5
     ProHEM(6, 6) = 1.8
     ProHEM(6, 7) = 13.4
     ProHEM(6, 8) = 131
     ProHEM(6, 9) = 10640
     ProHEM(6, 10) = 967
     ProHEM(6, 11) = 9
     ProHEM(6, 12) = 3650
     ProHEM(6, 13) = 354
     ProHEM(6, 14) = 5.27
     ProHEM(6, 15) = 568
     ProHEM(6, 16) = 1.03
     ProHEM(6, 17) = 1135
     ProHEM(6, 18) = 260
     ProHEM(6, 19) = 346000
     ProHEM(6, 20) = 41
     ProHEM(7, 1) = 220
     ProHEM(7, 2) = 24
     ProHEM(7, 3) = 22.6
     ProHEM(7, 4) = 1.55
     ProHEM(7, 5) = 2.6
     ProHEM(7, 6) = 1.8
     ProHEM(7, 7) = 15.2
     ProHEM(7, 8) = 149
     ProHEM(7, 9) = 14600
     ProHEM(7, 10) = 1220
     ProHEM(7, 11) = 9.89
     ProHEM(7, 12) = 5010
     ProHEM(7, 13) = 444
     ProHEM(7, 14) = 5.79
     ProHEM(7, 15) = 710
     ProHEM(7, 16) = 1.17
     ProHEM(7, 17) = 1419
     ProHEM(7, 18) = 316
     ProHEM(7, 19) = 573000
     ProHEM(7, 20) = 45.3
     ProHEM(8, 1) = 240
     ProHEM(8, 2) = 27
     ProHEM(8, 3) = 24.8
     ProHEM(8, 4) = 1.8
     ProHEM(8, 5) = 3.2
     ProHEM(8, 6) = 2.1
     ProHEM(8, 7) = 16.4
     ProHEM(8, 8) = 200
     ProHEM(8, 9) = 24290
     ProHEM(8, 10) = 1800
     ProHEM(8, 11) = 11
     ProHEM(8, 12) = 8150
     ProHEM(8, 13) = 657
     ProHEM(8, 14) = 6.39
     ProHEM(8, 15) = 1060
     ProHEM(8, 16) = 1.57
     ProHEM(8, 17) = 2117
     ProHEM(8, 18) = 630
     ProHEM(8, 19) = 1150000
     ProHEM(8, 20) = 60.1
     ProHEM(9, 1) = 260
     ProHEM(9, 2) = 29
     ProHEM(9, 3) = 26.8
     ProHEM(9, 4) = 1.8
     ProHEM(9, 5) = 3.25
     ProHEM(9, 6) = 2.4
     ProHEM(9, 7) = 17.7
     ProHEM(9, 8) = 220
     ProHEM(9, 9) = 31310
     ProHEM(9, 10) = 2160
     ProHEM(9, 11) = 11.9
     ProHEM(9, 12) = 10450
     ProHEM(9, 13) = 780
     ProHEM(9, 14) = 6.9
     ProHEM(9, 15) = 1260
     ProHEM(9, 16) = 1.72
     ProHEM(9, 17) = 2524
     ProHEM(9, 18) = 722
     ProHEM(9, 19) = 1730000
     ProHEM(9, 20) = 66.9
     ProHEM(10, 1) = 280
     ProHEM(10, 2) = 31
     ProHEM(10, 3) = 28.8
     ProHEM(10, 4) = 1.85
     ProHEM(10, 5) = 3.3
     ProHEM(10, 6) = 2.4
     ProHEM(10, 7) = 19.6
     ProHEM(10, 8) = 240
     ProHEM(10, 9) = 39550
     ProHEM(10, 10) = 2550
     ProHEM(10, 11) = 12.8
     ProHEM(10, 12) = 13160
     ProHEM(10, 13) = 914
     ProHEM(10, 14) = 7.4
     ProHEM(10, 15) = 1480
     ProHEM(10, 16) = 1.89
     ProHEM(10, 17) = 2966
     ProHEM(10, 18) = 810
     ProHEM(10, 19) = 2520000
     ProHEM(10, 20) = 72
     ProHEM(11, 1) = 300
     ProHEM(11, 2) = 34
     ProHEM(11, 3) = 31
     ProHEM(11, 4) = 2.1
     ProHEM(11, 5) = 3.9
     ProHEM(11, 6) = 2.7
     ProHEM(11, 7) = 20.8
     ProHEM(11, 8) = 303
     ProHEM(11, 9) = 59200
     ProHEM(11, 10) = 3480
     ProHEM(11, 11) = 14
     ProHEM(11, 12) = 19400
     ProHEM(11, 13) = 1250
     ProHEM(11, 14) = 8
     ProHEM(11, 15) = 2040
     ProHEM(11, 16) = 2.38
     ProHEM(11, 17) = 4078
     ProHEM(11, 18) = 1410
     ProHEM(11, 19) = 4390000
     ProHEM(11, 20) = 90.5
     ProHEM(12, 1) = 320
     ProHEM(12, 2) = 35.9
     ProHEM(12, 3) = 30.9
     ProHEM(12, 4) = 2.1
     ProHEM(12, 5) = 4
     ProHEM(12, 6) = 2.7
     ProHEM(12, 7) = 22.5
     ProHEM(12, 8) = 312
     ProHEM(12, 9) = 68130
     ProHEM(12, 10) = 3800
     ProHEM(12, 11) = 14.8
     ProHEM(12, 12) = 19710
     ProHEM(12, 13) = 1280
     ProHEM(12, 14) = 7.95
     ProHEM(12, 15) = 2220
     ProHEM(12, 16) = 2.45
     ProHEM(12, 17) = 4435
     ProHEM(12, 18) = 1510
     ProHEM(12, 19) = 5000000
     ProHEM(12, 20) = 94.8
     ProHEM(13, 1) = 340
     ProHEM(13, 2) = 37.7
     ProHEM(13, 3) = 30.9
     ProHEM(13, 4) = 2.1
     ProHEM(13, 5) = 4
     ProHEM(13, 6) = 2.7
     ProHEM(13, 7) = 24.3
     ProHEM(13, 8) = 316
     ProHEM(13, 9) = 76370
     ProHEM(13, 10) = 4050
     ProHEM(13, 11) = 15.6
     ProHEM(13, 12) = 19710
     ProHEM(13, 13) = 1280
     ProHEM(13, 14) = 7.9
     ProHEM(13, 15) = 2360
     ProHEM(13, 16) = 2.48
     ProHEM(13, 17) = 4718
     ProHEM(13, 18) = 1510
     ProHEM(13, 19) = 5580000
     ProHEM(13, 20) = 98.6
     ProHEM(14, 1) = 360
     ProHEM(14, 2) = 39.5
     ProHEM(14, 3) = 30.8
     ProHEM(14, 4) = 2.1
     ProHEM(14, 5) = 4
     ProHEM(14, 6) = 2.7
     ProHEM(14, 7) = 26.1
     ProHEM(14, 8) = 319
     ProHEM(14, 9) = 84870
     ProHEM(14, 10) = 4300
     ProHEM(14, 11) = 16.3
     ProHEM(14, 12) = 19520
     ProHEM(14, 13) = 1270
     ProHEM(14, 14) = 7.83
     ProHEM(14, 15) = 2490
     ProHEM(14, 16) = 2.5
     ProHEM(14, 17) = 4989
     ProHEM(14, 18) = 1510
     ProHEM(14, 19) = 6140000
     ProHEM(14, 20) = 102
     ProHEM(15, 1) = 400
     ProHEM(15, 2) = 43.2
     ProHEM(15, 3) = 30.7
     ProHEM(15, 4) = 2.1
     ProHEM(15, 5) = 4
     ProHEM(15, 6) = 2.7
     ProHEM(15, 7) = 29.8
     ProHEM(15, 8) = 326
     ProHEM(15, 9) = 104100
     ProHEM(15, 10) = 4820
     ProHEM(15, 11) = 17.9
     ProHEM(15, 12) = 19340
     ProHEM(15, 13) = 1260
     ProHEM(15, 14) = 7.7
     ProHEM(15, 15) = 2790
     ProHEM(15, 16) = 2.56
     ProHEM(15, 17) = 5571
     ProHEM(15, 18) = 1520
     ProHEM(15, 19) = 7410000
     ProHEM(15, 20) = 110
     ProHEM(16, 1) = 450
     ProHEM(16, 2) = 47.8
     ProHEM(16, 3) = 30.7
     ProHEM(16, 4) = 2.1
     ProHEM(16, 5) = 4
     ProHEM(16, 6) = 2.7
     ProHEM(16, 7) = 34.4
     ProHEM(16, 8) = 335
     ProHEM(16, 9) = 131500
     ProHEM(16, 10) = 5500
     ProHEM(16, 11) = 19.8
     ProHEM(16, 12) = 19340
     ProHEM(16, 13) = 1260
     ProHEM(16, 14) = 7.59
     ProHEM(16, 15) = 3170
     ProHEM(16, 16) = 2.63
     ProHEM(16, 17) = 6331
     ProHEM(16, 18) = 1530
     ProHEM(16, 19) = 9250000
     ProHEM(16, 20) = 120
     ProHEM(17, 1) = 500
     ProHEM(17, 2) = 52.4
     ProHEM(17, 3) = 30.6
     ProHEM(17, 4) = 2.1
     ProHEM(17, 5) = 4
     ProHEM(17, 6) = 2.7
     ProHEM(17, 7) = 39
     ProHEM(17, 8) = 344
     ProHEM(17, 9) = 161900
     ProHEM(17, 10) = 6180
     ProHEM(17, 11) = 21.7
     ProHEM(17, 12) = 19150
     ProHEM(17, 13) = 1250
     ProHEM(17, 14) = 7.46
     ProHEM(17, 15) = 3550
     ProHEM(17, 16) = 2.7
     ProHEM(17, 17) = 7094
     ProHEM(17, 18) = 1540
     ProHEM(17, 19) = 11200000
     ProHEM(17, 20) = 129
     ProHEM(18, 1) = 550
     ProHEM(18, 2) = 57.2
     ProHEM(18, 3) = 30.6
     ProHEM(18, 4) = 2.1
     ProHEM(18, 5) = 4
     ProHEM(18, 6) = 2.7
     ProHEM(18, 7) = 43.8
     ProHEM(18, 8) = 354
     ProHEM(18, 9) = 198000
     ProHEM(18, 10) = 6920
     ProHEM(18, 11) = 23.6
     ProHEM(18, 12) = 19160
     ProHEM(18, 13) = 1250
     ProHEM(18, 14) = 7.35
     ProHEM(18, 15) = 3970
     ProHEM(18, 16) = 2.78
     ProHEM(18, 17) = 7933
     ProHEM(18, 18) = 1560
     ProHEM(18, 19) = 13500000
     ProHEM(18, 20) = 140
     ProHEM(19, 1) = 600
     ProHEM(19, 2) = 62
     ProHEM(19, 3) = 30.5
     ProHEM(19, 4) = 2.1
     ProHEM(19, 5) = 4
     ProHEM(19, 6) = 2.7
     ProHEM(19, 7) = 48.6
     ProHEM(19, 8) = 364
     ProHEM(19, 9) = 237400
     ProHEM(19, 10) = 7660
     ProHEM(19, 11) = 25.6
     ProHEM(19, 12) = 18980
     ProHEM(19, 13) = 1240
     ProHEM(19, 14) = 7.22
     ProHEM(19, 15) = 4390
     ProHEM(19, 16) = 2.85
     ProHEM(19, 17) = 8772
     ProHEM(19, 18) = 1570
     ProHEM(19, 19) = 15900000
     ProHEM(19, 20) = 150
     ProHEM(20, 1) = 650
     ProHEM(20, 2) = 66.8
     ProHEM(20, 3) = 30.5
     ProHEM(20, 4) = 2.1
     ProHEM(20, 5) = 4
     ProHEM(20, 6) = 2.7
     ProHEM(20, 7) = 53.4
     ProHEM(20, 8) = 374
     ProHEM(20, 9) = 281700
     ProHEM(20, 10) = 8430
     ProHEM(20, 11) = 27.5
     ProHEM(20, 12) = 18980
     ProHEM(20, 13) = 1240
     ProHEM(20, 14) = 7.13
     ProHEM(20, 15) = 4830
     ProHEM(20, 16) = 2.93
     ProHEM(20, 17) = 9657
     ProHEM(20, 18) = 1580
     ProHEM(20, 19) = 18600000
     ProHEM(20, 20) = 160
     ProHEM(21, 1) = 700
     ProHEM(21, 2) = 71.6
     ProHEM(21, 3) = 30.4
     ProHEM(21, 4) = 2.1
     ProHEM(21, 5) = 4
     ProHEM(21, 6) = 2.7
     ProHEM(21, 7) = 58.2
     ProHEM(21, 8) = 383
     ProHEM(21, 9) = 329300
     ProHEM(21, 10) = 9200
     ProHEM(21, 11) = 29.3
     ProHEM(21, 12) = 18800
     ProHEM(21, 13) = 1240
     ProHEM(21, 14) = 7.01
     ProHEM(21, 15) = 5270
     ProHEM(21, 16) = 3.01
     ProHEM(21, 17) = 10539
     ProHEM(21, 18) = 1590
     ProHEM(21, 19) = 21400000
     ProHEM(21, 20) = 170
     ProHEM(22, 1) = 800
     ProHEM(22, 2) = 81.4
     ProHEM(22, 3) = 30.3
     ProHEM(22, 4) = 2.1
     ProHEM(22, 5) = 4
     ProHEM(22, 6) = 3
     ProHEM(22, 7) = 67.4
     ProHEM(22, 8) = 404
     ProHEM(22, 9) = 442600
     ProHEM(22, 10) = 10870
     ProHEM(22, 11) = 33.1
     ProHEM(22, 12) = 18630
     ProHEM(22, 13) = 1230
     ProHEM(22, 14) = 6.79
     ProHEM(22, 15) = 6240
     ProHEM(22, 16) = 3.17
     ProHEM(22, 17) = 12488
     ProHEM(22, 18) = 1650
     ProHEM(22, 19) = 27800000
     ProHEM(22, 20) = 194
     ProHEM(23, 1) = 900
     ProHEM(23, 2) = 91
     ProHEM(23, 3) = 30.2
     ProHEM(23, 4) = 2.1
     ProHEM(23, 5) = 4
     ProHEM(23, 6) = 3
     ProHEM(23, 7) = 77
     ProHEM(23, 8) = 424
     ProHEM(23, 9) = 570400
     ProHEM(23, 10) = 12540
     ProHEM(23, 11) = 36.7
     ProHEM(23, 12) = 18450
     ProHEM(23, 13) = 1220
     ProHEM(23, 14) = 6.6
     ProHEM(23, 15) = 7220
     ProHEM(23, 16) = 3.33
     ProHEM(23, 17) = 14442
     ProHEM(23, 18) = 1680
     ProHEM(23, 19) = 34780000
     ProHEM(23, 20) = 214
     ProHEM(24, 1) = 1000
     ProHEM(24, 2) = 100.8
     ProHEM(24, 3) = 30.2
     ProHEM(24, 4) = 2.1
     ProHEM(24, 5) = 4
     ProHEM(24, 6) = 3
     ProHEM(24, 7) = 86.8
     ProHEM(24, 8) = 444
     ProHEM(24, 9) = 722300
     ProHEM(24, 10) = 14330
     ProHEM(24, 11) = 40.3
     ProHEM(24, 12) = 18460
     ProHEM(24, 13) = 1220
     ProHEM(24, 14) = 6.45
     ProHEM(24, 15) = 8280
     ProHEM(24, 16) = 3.49
     ProHEM(24, 17) = 16568
     ProHEM(24, 18) = 1710
     ProHEM(24, 19) = 43000000
     ProHEM(24, 20) = 235
End Sub

